Shareware Grab Bag/Shareware Grab Bag.iso/005/tonyray1.arc/E1.FMT

Text File | 1985-04-06 | 1.0 KB | 25 lines

*begin e1.fmt
clear
@03,00 say '     File number:' get file_nmbr
@01,30 say '*** Casefile Information ***'
@04,00 say "  client's name :" get clientname PICT '@!'
@05,00 say '  client street :' get cstreet PICT '@!'
@06,00 say 'his city/st/zip :' get ccity_st PICT '@!'
@07,00 say " client's phone :" get cphone
@08,00 say 'alternate phone :' get altphone
@09,00 say '        contact :' get contact PICT '@!'
@10,00 say '      reference :' get reference
@11,00 say ' other attorney :' get opa PICT '@!'
@12,00 say '      his phone :' get opa_phone
@13,00 say '          court :' get court
@14,00 say '   cause number :' get cause_nmbr
@16,30 say '*** Billing Information ***'
@18,00 say 'billing on hold Y or N? :' get hold PICT '@!'
@18,30 say 'billing code (1 or 5) :' get code
@20,00 say 'previous bal. :' get prev_bal
@20,26 say 'service bal.  :' get ser_bal
@20,53 say 'expense bal. :' get exp_bal
@22,00 say 'payment bal. :' get pay_bal
@22,26 say 'beginning bal.:' get begin_bal
@24,21 say '*** Hit ctrl-w or ctrl-end to exit ***'
*eof e1.fmt